home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / uc3h1.zip / GDI.SCR < prev    next >
Text File  |  1992-08-15  |  354b  |  21 lines

  1. ; Gdi.scr - draw unicom boxes on screen
  2. i = 0
  3. j = 0
  4. GdiCreatePen(0, 1,255,0,0)
  5. GdiCreateBrush(0,0,0)
  6. while (j< 350)
  7. i=0
  8. while (i<640)   
  9.       l = 0
  10.         while (l < 20)
  11.         GdiRectangle(i-l,j+l,i+40+l,j+60-l)
  12.         l = l+5
  13.         endwhile
  14.         gditextout(i - l/2,j+l,"UNICOM")
  15.     i=i+80
  16.   endwhile
  17. j=j+60
  18. endwhile
  19. exit
  20.  
  21.